home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / searchhe.d < prev    next >
Text File  |  1997-10-26  |  3KB  |  64 lines
  1. DEFINITION MODULE SearchHelp;
  2.  
  3. (*==============================================================*
  4.  * Modul:               Zwischenmodul fr die Suche             *
  5.  * Autor:               Johannes G”ttker-Schnetmann             *
  6.  * erstellt am:         13.08.1993                              *
  7.  * letzte Žnderung am:  05.09.1993                              *
  8.  * Version:             1.0                                     *
  9.  * Interne Version:     V#0001                                  *
  10.  *==============================================================*
  11.  
  12.  *----------------------------------------------------------------------------
  13.  * Datum    Vers. Autor  Žnderung (Arbeitsbericht)
  14.  *----------------------------------------------------------------------------
  15.  * 05.09.93 0001  JGS    Neue Typen deklariert
  16. *)
  17.  
  18. CONST vUND = 0; vODER = 1;
  19.  
  20. CONST sUEBERALL = 0;     sTEXT = 1;         sBETREFF= 2;    sTEXTnBETREFF = 3;
  21.       sABSENDER = 4;    sEMPFAENGER = 5;    sID = 6;
  22.  
  23. (* Achtung, šbereinstimmung mit der Resourcedatei ist wichtig! *)
  24. (* ZSearchDial geht implizit von der richtigen Zuordnung aus!  *)
  25.  
  26. CONST suchstringAnz   = 4; (* Vier Suchstrings gibt es in der Suchbox von CAT *)
  27.  
  28. TYPE searchStrType    = ARRAY[0..59] OF CHAR;
  29. TYPE searchStrArray   = ARRAY[0..suchstringAnz-1] OF searchStrType;
  30. TYPE verknType        = ARRAY[0..suchstringAnz-2] OF INTEGER;
  31. TYPE woType           = ARRAY[0..suchstringAnz-1] OF INTEGER;
  32. TYPE SearchRecordType = RECORD 
  33.                           searchStr : searchStrArray;
  34.                           verkn     : verknType; (* = (vUND, vODER); *)
  35.                           wo        : woType;
  36.                           show, change, statussearch, ask, 
  37.                           searchText, gross, groupsearch : BOOLEAN;
  38.                           sSetBits, sClearedBits, setBits, clearBits : BITSET;
  39.                         END;
  40.  
  41. VAR suchVar   : SearchRecordType;
  42.  
  43. (* Das ist jetzt vorl„ufig redundant. Beide Variablen werden gesetzt, auf Dauer *)
  44. (* soll aber nur das Record drin bleiben!                                       *)
  45.  
  46. PROCEDURE IsValidSearch (str: ARRAY OF CHAR): BOOLEAN;
  47. (* Prft einen Suchstring, ob er gltig ist. 
  48.  * FALSE: Suchstring ist nicht gltig.
  49.  *)
  50.  
  51. PROCEDURE ValidateKonf (VAR konf: SearchRecordType): BOOLEAN;
  52. (* Prft die bergebene Suchkonfiguration auf Gltigkeit. 
  53.  *)
  54.  
  55. PROCEDURE getKonf(nr : CARDINAL; VAR konf : SearchRecordType):BOOLEAN;
  56. (* Suchkonfiguration <nr> abrufen, FALSE -> nicht gesetzt *)
  57. (* m”glich sind im Moment die Nummern 0..9 *)
  58.  
  59. PROCEDURE setKonf(nr : CARDINAL; konf : SearchRecordType):BOOLEAN;
  60. (* Suchkonfiguration <nr> setzen *)
  61. (* Gibt zurck, ob die Variablen angelegt werden konnten *)
  62.  
  63. END SearchHelp.
  64.